home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / turbopas / tptc17sc.arc / FTOA.INC < prev    next >
Encoding:
Text File  |  1988-03-25  |  189 b   |  16 lines
  1.  
  2. (*
  3.  * convert floating to ascii
  4.  *
  5.  *)
  6.  
  7. function ftoa(f: real; width,dec: integer): anystring;
  8. var
  9.    buf: anystring;
  10. begin
  11.    str(f:width:dec,buf);
  12.    ftoa := buf;
  13. end;
  14.  
  15.  
  16.